﻿Public Class HukukBorcBilgileriListesi
	Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Text = "Borç Bilgileri Listesi"
				AddReport()
			Case EventType.Shown
				Rs = Local.OpenSQL("select sno,kimlik,adi,count(*) as adet,sum(borc) as borc from taksit where sno is not null group by sno,kimlik,adi order by kimlik")
				Report.Begin()
			Case EventType.PageHeader
				Report.PrintReportInfo("TAKSİTLİ ÖDEME BİLGİLERİ LİSTESİ", "")
				Report.SetColumns("Kimlik;Sigorta No.;Adı Soyadı;Dönem;Borç", "1;1;3;1;1", "c;c;l;r;m", "--")
			Case EventType.ReportDetail
				For Each Row In Rs
					Report.Print(Rs("kimlik"), Rs("sno"), Rs("adi"), Rs("adet"), Rs("borc"))
				Next
		End Select
	End Sub

End Class
